Public Function GetRandomNumber(Upper As Integer, Lower As Integer) As Integer
Randomize
GetRandomNumber = Int((Upper - Lower + 1) * Rnd + Lower)
End Function